(rmail-convert-to-babyl-format): Protect against

nonsensical content-length values.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index d8b11bf48bdb95033b338ebdd959a6898a4715c0..3a6665d6f20889cfb71f7c97bfb0b25c9da6eb3c 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -895,8 +895,8 @@ argument causes us to read a file name and use that file as the inbox."
                              (let ((beg (point))
                                    (eol (progn (end-of-line) (point))))
                                (read (buffer-substring beg eol)))))))
-                (if size
-                    (goto-char (+ header-end size))))
+                (and size (numberp size) (>= size 0)
+                     (goto-char (+ header-end size))))
 
               (if (re-search-forward
                    (concat "^[\^_]?\\("